Option Explicit
Sub P_Sample035()
    Dim myFso     As Scripting.FileSystemObject
    Dim myName    As String
    Set myFso = New Scripting.FileSystemObject
    myName = ThisWorkbook.Path & "\" & "P_Test1.txt"      'Nɮ
    MsgBox myFso.GetParentFolderName(Path:=myName)
    Set myFso = Nothing                                 '
End Sub
